function ff = fncost(para,data)

para = trans(para); 
ff = -rsfnmh(para,data); 